home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Utilities Experience
/
The Utilities Experience - Volume 1.iso
/
software
/
icons+tools
/
icons+stuff
/
packs
/
magicexpansion
/
install
/
install_me
next >
Wrap
Text File
|
1995-12-22
|
6KB
|
258 lines
; $VER: Install_ME 1.4.1 (23.10.94)
; Copyright © 1994 by Johannes Beigel
; GIFTWARE
( set @default-dest "SYS:" )
( set vernum ( getversion "exec.library" ( resident ) ) )
( set ver ( / vernum 65536 ) )
( if ( = @language "deutsch" )
( set lang 0 )
( set lang 1 )
)
( complete 0 )
; --------------------
; Ask what to install
; --------------------
( set parts
( askoptions
( prompt ( select lang "Wählen Sie aus, was Sie installieren möchten."
"Select what you want to install." )
)
( choices
( select lang "C-Include-File" "C include file" )
( select lang "MUI-Image-Sets" "MUI-image sets" )
( select lang "Paletten" "Palettes" )
"Patterns"
( select lang "OS 2.x Fenster-Patterns" "OS 2.x window patterns" )
( select lang "Mouse-Pointer" "Mouse pointers" )
)
( help
( select lang
( cat
"C-Include-File: Nützliche neue Defintionen für's MUI-Programmieren\n\n"
"MUI-Image-Sets: Neue MUI-Image-Sets\n\n"
"Paletten: Ein paar neue Paletten (Alternativen zur Original-MagicWB-Palette)\n\n"
"Patterns: Neue Workbench-Hintergrund-Muster\n\n"
"OS 2.x Fenster-Patterns: \"alte\" Fenster-Patterns für den \"WBPattern\" Prefs-Ed\n\n"
"Mouse-Pointer: Mehrere normale Mauszeiger und Busy-Pointer"
)
( cat
"C include file: Useful new definitions for MUI programming\n\n"
"MUI image sets: New MUI image sets\n\n"
"Palettes: A few new palettes (alternatives to the original MagicWB palette)\n\n"
"Patterns: New Workbench background patterns\n\n"
"OS 2.x window patterns: old-style window patterns for the \"WBPattern\" prefs-ed\n\n"
"Mouse pointers: Several normal and busy mouse pointers."
)
)
)
)
)
( complete 14 )
; --------------------
; Install the include file
; --------------------
( if ( IN parts 0 )
(
( set includedest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für das Include-File."
"Select a directory for the include file."
)
)
( default "INCLUDE:libraries/" )
( help @askdir-help )
)
)
( makedir includedest )
( copyfiles
( prompt ( select lang "Kopiere Include-File." "Copying include file." ) )
( source "/include/libraries/muidefs.h" )
( dest includedest )
)
)
)
( complete 28 )
; --------------------
; Install the MUI image sets
; --------------------
( if( IN parts 1 )
(
( set imgsetsdest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für die MUI-Image-Sets."
"Select a directory for the MUI-image sets."
)
)
( default "SYS:Prefs/MUI-Images" )
( help @askdir-help )
)
)
( copyfiles
( prompt ( select lang "Kopiere MUI-Image-Sets." "Copying MUI-image sets." ) )
( source "/MUI-Images" )
( all )
( dest imgsetsdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 42 )
; --------------------
; Install the palettes
; --------------------
( if( IN parts 2 )
(
( set palettedest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für die Paletten."
"Select a directory for the palettes."
)
)
( default "SYS:Prefs/Presets" )
( help @askdir-help )
)
)
( if ( < ver 39 )
(
( copyfiles
( prompt ( select lang "Kopiere OS 2.x Paletten." "Copying OS 2.x palettes." ) )
( source "/OS2Palettes" )
( all )
( dest palettedest )
( confirm )
( help @copyfiles-help )
)
)
(
( copyfiles
( prompt ( select lang "Kopiere OS 3.x Paletten." "Copying OS 3.x palettes." ) )
( source "/OS3Palettes" )
( all )
( dest palettedest )
( confirm )
( help @copyfiles-help )
)
)
)
)
)
( complete 56 )
; --------------------
; Install the background patterns
; --------------------
( if( IN parts 3 )
(
( set patdest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für die Hintergrund-Muster."
"Select a directory for the background patterns."
)
)
( default "SYS:Prefs/Patterns" )
( help @askdir-help )
)
)
( copyfiles
( prompt ( select lang "Kopiere Background-Patterns." "Copying background patterns." ) )
( source "/Patterns" )
( all )
( dest patdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 70 )
; --------------------
; Install the 2.x background patterns
; --------------------
( if( IN parts 4 )
(
( set winpatdest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für die OS 2.x Fenster-Hintergrund-Muster."
"Select a directory for the OS 2.x window background patterns."
)
)
( default "SYS:Prefs/Presets" )
( help @askdir-help )
)
)
( copyfiles
( prompt ( select lang "Kopiere OS 2.x Window-Patterns." "Copying OS 2.x window patterns." ) )
( source "/OS2WinPatterns" )
( all )
( dest winpatdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 84 )
; --------------------
; Install the mouse pointers
; --------------------
( if( IN parts 5 )
(
( set ptrdest
( askdir
( prompt
( select lang "Wählen Sie ein Verzeichnis für die Mauszeiger."
"Select a directory for the mouse pointers."
)
)
( default "SYS:Prefs/Presets" )
( help @askdir-help )
)
)
( copyfiles
( prompt ( select lang "Kopiere Mouse-Pointer." "Copying mouse pointers." ) )
( source "/Pointers" )
( all )
( dest ptrdest )
( confirm )
( help @copyfiles-help )
)
)
)
( complete 100 )